excel VBA判断闰年的代码和方法

我们在以前的文章介绍了使用excel内置的函数编写公式来判断年份属于闰年还是平年，本文再介绍使用excel的VBA代码来判断闰年的方法。　　在excel中，按下ALT+F11键，打开VBE编辑器，插入——模块，复制下面的VBA代码，然后单击“运行”命令运行即可实现VBA判断闰年。Sub 判断闰年() Dim Tmp On Error GoTo skip Tmp = CDate(InputBox("请输入一个年份", "年份", Year(Now)) & "-2-29") MsgBox "是闰年!" Exit Sub skip: MsgBox "不是闰年!" End Sub